{Macro to open other macros windows}

var 
    std65535Pid, std8191Pid, customLUTPid, xlate16uTo8P :integer;
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    Open('16 bit arithmetic');
    Open('Adjust 16 bit LUT');
    Open('Calculate Intensity');
    Open('Create Kernels');
    Open('Examine Old 16 bit Stacks');
    Open('Examine Packed 16 bit stack');
    Open('Examine Raw Data');
    Open('Front Image Is ...');
    Open('standardSmoothKernel');
    SetMemo('smoothPid', pidNumber);
    Open('standardBkgKernel');
    SetMemo('kernelPid', pidNumber);
    Open('standardMorphKernel');
    SetMemo('rbKerPid', pidNumber);
    SaveState;
    SetNewSize(256, 256);
    SetBackgroundColor(0);
    MakeNewWindow('std65535LUT');
    std65535Pid := pidNumber;
    SetMemo('std65535Pid', std65535Pid);
    linLUT16uto8(std65535Pid, 0, 65535, 1, 254);
    MakeNewWindow('std8191LUT');
    std8191Pid := pidNumber;
    SetMemo('std8191Pid', std8191Pid);
    linLUT16uto8(std8191Pid, 0, 8191, 1, 254);
    MakeNewWindow('CustomLUT');
    customLUTPid := pidNumber;
    SetMemo('customLUTPid', customLUTPid);
    linLUT16uto8(customLUTPid, 0, 65535, 1, 254);
    RestoreState;
    xlate16uTo8P := customLUTPid;
    SetMemo('xlate16uTo8P', xlate16uTo8P);
    SetMemo('frontPid', pidNumber);
    SetBackgroundColor(0);
    SetForeGroundColor(255);
end;

macro '[F5] 16 bit arithmetic';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('16 bit arithmetic');
    LoadMacros;
end;

macro '[F6] Adjust 16 bit LUT';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Adjust 16 bit LUT');
    LoadMacros;
end;

macro '[F7] Calculate Intensity';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Calculate Intensity');
    LoadMacros;
end;

macro '[F8] Create Kernels';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Create Kernels');
    LoadMacros;
end;

macro '[F9] Examine Old 16 bit Stacks';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Old 16 bit Stacks');
    LoadMacros;
end;

macro '[F10] Examine Packed 16 bit stack';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Packed 16 bit stack');
    LoadMacros;
end;

macro '[F11] Examine Raw Data';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Raw Data');
    LoadMacros;
end;

macro '[F12] Front Image Is ...';
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);
    SetMemo('frontPid', pidNumber);
    SelectWindow('Front Image Is ...');
    LoadMacros;
end;